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— SegMap.Mesa Edited by Sandman on August 30, 1977 10:30 AM 

DIRECTORY 

lODefs: FROM "iodefs", 
AUoDefs: FROM "altodefs", 
SegmentDefs: FROM "segmentdef s"; 

DEFINITIONS FROM AltoDefs, lODefs, SegmentDefs; 

SegMap: PROGRAM IMPORTS lOOefs, SegmentDefs SHARES SegmentDefs = PUBLIC BEGIN 

byte: NumberFormat = NumberFormat[8, FALSE, TRUE, 3]; 
word: NumberFormat = NumberFormat[8 , FALSE .TRUE, 6] ; 

PrintDataSegment: PROCEDURE [seg:DataSegmentHand1e3 RETURNS [BOOLEAN] « 
BEGIN OPEN seg; 

WriteNumber[VMpage,byte]; WriteChar[SP] ; 
WriteNumber[AddressFromPage[VMpage] .word]; 
WriteString['* "]; 
WriteNumber[pages .byte]; 
WriteLine[" VM"]; 
WriteChar[CR]; 
RETURN[~More[]] 
END; 

PrintFileSegment: PROCEDURE[seg: Fi leSegmen tHandle] RETURNS [BOOLEAN] = 
BEGIN OPEN seg; 

WriteNumber[VMpage,byte]; WriteChar[SP] ; 
WriteNumber[AddressFromPage[VMpage],word]; WriteChar[SP]; 
WriteNumber[base,byte]; WriteChar[SP] ; 
WriteNumber [pages ,byte] ; WriteCharfSP] ; 
WriteString["SN"]; WriteOctal [file . fp . serial .part2]; 
SELECT class FROM 

code => WriteString[" code"]; 

symbols -> WriteString[" syms"]; 

bed => WriteString[" bed"]; 

ENDCASE; 
IF read OR write THEN WriteChar[' ]; 
IF read THEN WriteChar[ ' R]; 
IF write THEN Wri teChar[ 'W] ; 
IF swappedin THEN Wri teString[" in"]; 
IF lock > THEN 

BEGIN 

WriteString[" 1ock="]; 

WriteOcta1[1ock]; 

END; 
WriteChar[CR]; 
RETURN[~More[]] 
END; 

Ic: INTEGER; 

fun : INTEGER = 18; 

More: PROCEDURE RETURNS [BOOLEAN] = 
BEGIN c: CHARACTER; 
IF (Ic - 1c+l) >= fun THEN 
BEGIN Ic «- 0; 

DO -- until non-random input 
SELECT (c - ReadChar[]) FROM 
SP.CR.LF => EXIT; 
DEL => RETURN[FALSE]; 
FNOCASE; 
ENDLOOP; 
END; 
RETURN[TRUE] 
END; 

DO WriteChar[CR]; Ic ^ 0; 

[] ♦- fnumerater i 1 eSegmen ts[Pr intF i 1 eSegment] ; 
Wri teChar[CR]; Ic ♦- fun ; 
IF More[] TflfN 

[] *- rnumerateDataSegments[PrintDataSegment]; 
WrileChar[CR]: STOP; 
ENDLOOP; 
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END. 



